1 PRINT"[147]"CHR$(142):POKE53280,15:POKE53281,1
2 REM*********************************
3 REM*                               *
4 REM*  WRITTEN BY:                  *
5 REM*                               *
6 REM*          JAMES W. WHITEWOOD   *
7 REM*                               *
8 REM*********************************
9 REM
13 MU=9
15 PRINT"[147] DO YOU WANT TO TRY BIG NUMBERS";
17 INPUTA$:IFASC(A$)=89THENMU=99
19 DIM NU$(9,7)
20 RESTORE:PRINT"[147]WOULD YOU LIKE TO DO"
30 PRINT
40 PRINT"        ADDITION    (+)"
50 PRINT
60 PRINT"     OR SUBTRACTION (-)";
70 FORI=0TO9:FORJ=1TO7:READNU$(I,J):NEXTJ,I
80 INPUTA$
90 IFA$="-"THEN5000
100 IFA$<>"+"THEN20
110 N1=INT(RND(0)*MU)+1
120 N2=INT(RND(0)*MU)+1
130 AN=N1+N2
140 N1$=RIGHT$(STR$(N1+100),2)
150 N2$=RIGHT$(STR$(N2+100),2)
160 AN$=STR$(AN)
170 PRINT"[147]";
180 FORI=1TO7
190 PRINTTAB(10);NU$(VAL(MID$(N1$,1,1)),I)
200 NEXTI
210 PRINT"";
220 FORI=1TO7
230 PRINTTAB(20);NU$(VAL(MID$(N1$,2,1)),I)
240 NEXTI
245 IFA$="-"THENGOTO5100
250 PRINT""
260 PRINT"     [146]"
270 PRINT"     [146]"
280 PRINT"       [146]"
290 PRINT"     [146]"
300 PRINT"     [146]"
310 PRINT""
320 FORI=1TO7
330 PRINTTAB(10);NU$(VAL(MID$(N2$,1,1)),I)
340 NEXTI
350 PRINT""
360 FORI=1TO7
370 PRINTTAB(20);NU$(VAL(MID$(N2$,2,1)),I)
380 NEXTI
390 PRINT
400 FORI=1TO29:PRINT"[192]";:NEXTI
410 X=19:GOSUB60000:GOSUB420:GOTO470
420 PRINT""
430 PRINTTAB(28)"WHAT NUMBER"
440 PRINTTAB(28)"GOES IN THE"
450 PRINTTAB(28)"   BOX   [157][157][157]";
460 INPUTA:RETURN
470 Z= VAL(MID$(AN$,LEN(AN$),1))
480 IFA<>ZTHENGOSUB59000:GOSUB5560:GOSUB420:GOTO480
485 GOSUB5500
490 PRINT""
500 FORI=1TO7
510 PRINTTAB(20);NU$(A,I)
520 NEXTI
530 X=9:GOSUB60000:GOSUB420
535 Z=VAL(MID$(AN$,LEN(AN$)-1,1))
540 IFA<>ZTHENGOSUB59000:GOSUB5560:GOSUB420:GOTO540
545 GOSUB5500
550 PRINT""
560 FORI=1TO7
570 PRINTTAB(10);NU$(A,I)
580 NEXTI
590 IFLEN(AN$)<4THEN670
600 X=0:GOSUB60000:GOSUB420
610 Z=VAL(MID$(AN$,LEN(AN$)-2,1))
620 IFA<>ZTHENGOSUB59000:GOSUB5560:GOSUB420:GOTO620
625 GOSUB5500
630 PRINT""
640 FORI=1TO7
650 PRINT" ";NU$(A,I)
660 NEXTI
670 REM
680 PRINT""TAB(28);"WOULD YOU "
681 PRINTTAB(28);"LIKE TO TRY"
682 PRINTTAB(28);"AGAIN";
690 INPUTA$
700 IFLEFT$(A$,1)="Y"THEN20
710 PRINT"[147]   THANK-YOU VERY MUCH FOR PLAYING"
720 PRINT"  I HOPE THAT YOU LEARNED SOMETHING"
730 PRINT"        GOOD BYE FOR NOW....."
740 END
5000 REM
5005 N1=INT(RND(0)*MU)+1
5010 N2=INT(RND(0)*MU)+1
5020 AN=N1-N2
5030 IFAN>0THEN5090
5040 N=N1
5050 N1=N2
5060 N2=N
5070 AN=N1-N2
5080 IFAN=0THENGOTO5000
5090 GOTO140
5100 PRINT""
5110 PRINT"         "
5120 PRINT"         "
5130 PRINT"       [146]"
5140 PRINT"         "
5150 PRINT"         "
5160 GOTO310
5500 PRINT""TAB(32);"  [190]  [188][146]"
5510 PRINTTAB(32);" [190][219]  [219][188][146]"
5520 PRINTTAB(32);"       [146]"
5530 PRINTTAB(32);" [187][202][192][192][203][172][146]"
5540 PRINTTAB(32);"  [187]  [172][146]"
5550 RETURN
5560 PRINT""TAB(32);"  [190]  [188][146]"
5570 PRINTTAB(32);" [190][192]  [192][188][146]"
5580 PRINTTAB(32);"       [146]"
5590 PRINTTAB(32);" [187][213][192][192][201][172][146]"
5600 PRINTTAB(32);"  [187]  [172][146]"
5610 RETURN
59000 PRINT""
59010 PRINTTAB(28)"I'M SORRY  "
59020 PRINTTAB(28)"THAT'S IS  "
59030 PRINTTAB(28)"NOT RIGHT"
59040 FORI=1TO2000:NEXTI:RETURN
60000 PRINT""
60010 PRINTTAB(X);" [176][192][192][192][192][174]"
60020 FORI=1TO5
60030 PRINTTAB(X);" [221]    [221]"
60040 NEXTI
60050 PRINTTAB(X);" [173][192][192][192][192][189]"
60060 RETURN
60930 DATA"     [146] "
60940 DATA" [146]     [146]"
60950 DATA" [146]     [146]"
60960 DATA" [146]     [146]"
60970 DATA" [146]     [146]"
60980 DATA" [146]     [146]"
60990 DATA"     [146] "
61000 DATA"    [146]  "
61010 DATA"    [146]  "
61020 DATA"  [146]  [146]  "
61030 DATA"    [146]  "
61040 DATA"    [146]  "
61050 DATA"    [146]  "
61060 DATA"     [146] "
61070 DATA"     [146] "
61080 DATA" [146]     [146]"
61090 DATA"      [146]"
61100 DATA"     [146] "
61110 DATA"   [146]   "
61120 DATA" [146]     "
61130 DATA"      [146]"
61140 DATA"     [146] "
61150 DATA" [146]     [146]"
61160 DATA"      [146]"
61170 DATA"     [146] "
61180 DATA"      [146]"
61190 DATA" [146]     [146]"
61200 DATA"     [146] "
61210 DATA"     [146] "
61220 DATA"     [146] "
61230 DATA"   [146]  [146] "
61240 DATA"  [146]   [146] "
61250 DATA"      [146]"
61260 DATA"     [146] "
61270 DATA"     [146] "
61280 DATA"      [146]"
61290 DATA" [146]     "
61300 DATA"    [146]  "
61310 DATA"     [146] "
61320 DATA"      [146]"
61330 DATA" [146]    [146] "
61340 DATA"    [146]  "
61350 DATA"     [146] "
61360 DATA"  [146]    "
61370 DATA" [146]     "
61380 DATA"     [146] "
61390 DATA" [146]     [146]"
61400 DATA" [146]     [146]"
61410 DATA"     [146] "
61420 DATA"      [146] "
61430 DATA" [146]     [146]"
61440 DATA"     [146] "
61450 DATA"    [146]  "
61460 DATA"    [146]  "
61470 DATA"    [146]  "
61480 DATA"    [146]  "
61490 DATA"     [146] "
61500 DATA" [146]     [146]"
61510 DATA" [146]     [146]"
61520 DATA"     [146] "
61530 DATA" [146]     [146]"
61540 DATA" [146]     [146]"
61550 DATA"     [146] "
61560 DATA"     [146] "
61570 DATA" [146]     [146]"
61580 DATA" [146]     [146]"
61590 DATA"      [146]"
61600 DATA"      [146]"
61610 DATA"     [146] "
61620 DATA"    [146]  "